; Music of E-Motion (1990) (U.S.Gold)
; Ripped by Megachur the 25/10/2006

; revue le 16/12/2008 (il manquait un call d'init !)

	write "E-MOTION.BIN"

music_date_rip	equ &19a6
music_adr	equ &64dc
first_theme	equ 1	; 1 -> 3
last_theme	equ 3

	read "music_header_v1_0.asm"

	db #0d,#04,#1a,#01,#01,#06,#02,#00
	db #00,#04,#04,#04,#04,#13,#78,#01
	db #01,#05,#05,#05,#05,#05,#05,#05
	db #05,#05,#05,#06,#06,#06,#06,#06
	db #06,#06,#06,#06,#06,#06,#06,#06
	db #06,#06,#07,#07,#07,#07,#07,#07
	db #07,#07,#07,#07,#07,#08,#08,#08
	db #08,#08,#08,#08,#08,#08,#07,#07
	db #07,#07,#07,#06,#06,#06,#06,#06
	db #06,#06,#05,#05,#05,#05,#05,#05
	db #05,#05,#05,#04,#04,#04,#04,#04
	db #04,#04,#04,#04,#04,#04,#04,#04
	db #04,#04,#04,#04,#04,#04,#04,#03
	db #03,#03,#03,#03,#03,#03,#03,#03
	db #03,#03,#03,#03,#02,#02,#02,#02
	db #02,#02,#02,#02,#01,#01,#01,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#01,#ff,#ff,#ff,#ff,#01
	db #01,#00,#01,#01,#ff,#ff,#ff,#ff
	db #01,#01,#00,#01,#01,#ff,#ff,#ff
	db #ff,#01,#01,#00,#01,#01,#ff,#ff
	db #ff,#ff,#01,#01,#00,#01,#01,#ff
	db #ff,#ff,#ff,#01,#01,#00,#01,#01
	db #ff,#ff,#ff,#ff,#01,#01,#00,#01
	db #01,#ff,#ff,#ff,#ff,#01,#01,#00
	db #01,#01,#ff,#ff,#ff,#ff,#01,#01
	db #00,#01,#01,#ff,#ff,#ff,#ff,#01
	db #01,#00,#01,#01,#ff,#ff,#ff,#ff
	db #01,#01,#00,#01,#01,#ff,#ff,#ff
	db #ff,#01,#01,#00,#01,#01,#ff,#ff
	db #ff,#ff,#01,#01,#00,#01,#01,#ff
	db #ff,#ff,#ff,#01,#01,#00,#01,#01
	db #ff,#ff,#ff,#ff,#01,#01,#00,#01
	db #01,#ff,#ff,#ff,#ff,#01,#01,#00
	db #01,#01,#ff,#ff,#ff,#ff,#01,#01
	db #00,#08,#08,#f8,#f8,#00,#f8,#f8
	db #08,#08,#00,#13,#39,#01,#01,#01
	db #08,#08,#08,#08,#07,#07,#07,#07
	db #06,#06,#06,#06,#05,#05,#05,#05
	db #04,#04,#04,#04,#03,#03,#03,#03
	db #02,#02,#02,#02,#01,#01,#01,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #ff,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#50,#50,#50,#50,#50,#50,#50
	db #50,#0d,#20,#01,#01,#04,#03,#02
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#0b,#0a,#0a
	db #0a,#0a,#0a,#0a,#0a,#0a,#0a,#0a
	db #0a,#0a,#0a,#0a,#0a,#10,#01,#01
	db #01,#02,#02,#02,#02,#02,#02,#02
	db #02,#02,#02,#03,#03,#0d,#20,#01
	db #01,#03,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#15,#14,#14,#14,#14,#14,#14
	db #14,#14,#14,#14,#14,#14,#14,#14
	db #14,#10,#11,#12,#13,#14,#15,#16
	db #17,#18,#19,#1a,#1b,#1c,#1d,#1e
	db #1f,#13,#20,#01,#01,#08,#08,#07
	db #07,#06,#06,#05,#05,#04,#04,#03
	db #03,#02,#02,#01,#01,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#01,#00,#01
	db #00,#ff,#00,#ff,#00,#ff,#00,#ff
	db #00,#01,#00,#01,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#13,#09,#01
	db #01,#05,#05,#05,#05,#05,#05,#05
	db #05,#ff,#02,#02,#fe,#fe,#fe,#fe
	db #02,#02,#00,#13,#09,#01,#01,#06
	db #06,#05,#05,#04,#04,#05,#05,#ff
	db #01,#01,#ff,#ff,#ff,#ff,#01,#01
	db #00,#13,#02,#01,#01,#00,#00,#00
	db #00,#13,#09,#01,#01,#07,#07,#06
	db #06,#07,#07,#06,#06,#ff,#ff,#01
	db #01,#ff,#ff,#01,#01,#ff,#00,#13
	db #39,#01,#01,#09,#09,#09,#09,#08
	db #08,#08,#08,#07,#07,#07,#07,#06
	db #06,#06,#06,#05,#05,#05,#05,#04
	db #04,#04,#04,#03,#03,#03,#03,#02
	db #02,#02,#02,#01,#01,#01,#01,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#ff,#01,#01,#ff,#ff
	db #ff,#ff,#01,#01,#00,#01,#01,#ff
	db #ff,#ff,#ff,#01,#01,#00,#01,#01
	db #ff,#ff,#ff,#ff,#01,#01,#00,#01
	db #01,#ff,#ff,#ff,#ff,#01,#01,#00
	db #01,#01,#ff,#ff,#ff,#ff,#01,#01
	db #00,#01,#01,#ff,#ff,#ff,#ff,#01
	db #01,#00,#01,#01,#ff,#ff,#ff,#ff
	db #01,#01,#00,#01,#01,#ff,#ff,#ff
	db #ff,#01,#01,#00,#13,#14,#60,#09
	db #01,#0b,#0b,#0b,#0a,#0a,#0a,#0a
	db #09,#09,#08,#08,#08,#07,#07,#06
	db #05,#04,#03,#01,#00,#e2,#d8,#e2
	db #e7,#ce,#e2,#ec,#f1,#ec,#ec,#ec
	db #e7,#d8,#e2,#ec,#e7,#e2,#ec,#e7
	db #ec,#13,#14,#d0,#07,#01,#0b,#0b
	db #0b,#0a,#0a,#0a,#0a,#09,#09,#08
	db #08,#08,#07,#07,#06,#05,#04,#03
	db #01,#00,#e2,#d8,#e2,#e7,#ce,#e2
	db #ec,#f1,#ec,#ec,#ec,#e7,#d8,#e2
	db #ec,#e7,#e2,#ec,#e7,#ec,#13,#14
	db #40,#06,#01,#0b,#0b,#0b,#0a,#0a
	db #0a,#0a,#09,#09,#08,#08,#08,#07
	db #07,#06,#05,#04,#03,#01,#00,#e2
	db #d8,#e2,#e7,#ce,#e2,#ec,#f1,#ec
	db #ec,#ec,#e7,#d8,#e2,#ec,#e7,#e2
	db #ec,#e7,#ec,#13,#14,#b0,#04,#01
	db #0b,#0b,#0b,#0a,#0a,#0a,#0a,#09
	db #09,#08,#08,#08,#07,#07,#06,#05
	db #04,#03,#01,#00,#e2,#d8,#e2,#e7
	db #ce,#e2,#ec,#f1,#ec,#ec,#ec,#e7
	db #d8,#e2,#ec,#e7,#e2,#ec,#e7,#ec
	db #13,#14,#84,#03,#01,#0b,#0b,#0b
	db #0a,#0a,#0a,#0a,#09,#09,#08,#08
	db #08,#07,#07,#06,#05,#04,#03,#01
	db #00,#e2,#d8,#e2,#e7,#ce,#e2,#ec
	db #f1,#ec,#ec,#ec,#e7,#d8,#e2,#ec
	db #e7,#e2,#ec,#e7,#ec,#13,#14,#20
	db #03,#01,#0b,#0b,#0b,#0a,#0a,#0a
	db #0a,#09,#09,#08,#08,#08,#07,#07
	db #06,#05,#04,#03,#01,#00,#e2,#d8
	db #e2,#e7,#ce,#e2,#ec,#f1,#ec,#ec
	db #ec,#e7,#d8,#e2,#ec,#e7,#e2,#ec
	db #e7,#ec,#13,#14,#6c,#02,#01,#0b
	db #0b,#0b,#0a,#0a,#0a,#0a,#09,#09
	db #08,#08,#08,#07,#07,#06,#05,#04
	db #03,#01,#00,#e2,#d8,#e2,#e7,#ce
	db #e2,#ec,#f1,#ec,#ec,#ec,#e7,#d8
	db #e2,#ec,#e7,#e2,#ec,#e7,#ec,#13
	db #14,#58,#02,#01,#0b,#0b,#0b,#0a
	db #0a,#0a,#0a,#09,#09,#08,#08,#08
	db #07,#07,#06,#05,#04,#03,#01,#00
	db #e2,#d8,#e2,#e7,#ce,#e2,#ec,#f1
	db #ec,#ec,#ec,#e7,#d8,#e2,#ec,#e7
	db #e2,#ec,#e7,#ec,#13,#14,#26,#02
	db #01,#0b,#0b,#0b,#0a,#0a,#0a,#0a
	db #09,#09,#08,#08,#08,#07,#07,#06
	db #05,#04,#03,#01,#00,#e2,#d8,#e2
	db #e7,#ce,#e2,#ec,#f1,#ec,#ec,#ec
	db #e7,#d8,#e2,#ec,#e7,#e2,#ec,#e7
	db #ec,#0d,#64,#01,#00,#02,#fe,#0b
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0c,#0b,#0b,#0b,#0b,#0b
	db #0b,#0a,#0a,#0a,#0a,#0a,#0a,#0a
	db #0a,#0a,#0a,#0a,#0a,#0a,#0a,#09
	db #09,#09,#09,#09,#09,#09,#09,#09
	db #09,#08,#08,#08,#08,#08,#08,#08
	db #08,#08,#08,#08,#08,#07,#07,#07
	db #07,#07,#07,#07,#06,#06,#06,#06
	db #06,#06,#06,#06,#06,#06,#05,#05
	db #05,#05,#05,#05,#05,#05,#04,#04
	db #04,#04,#04,#04,#04,#04,#04,#03
	db #03,#03,#03,#03,#03,#03,#03,#03
	db #03,#02,#02,#01,#00,#01,#02,#03
	db #fa,#02,#04,#06,#f4,#01,#02,#03
	db #04,#05,#f1,#05,#fb,#03,#03,#fb
	db #ff,#01,#02,#03,#fa,#02,#04,#06
	db #f4,#01,#02,#03,#04,#05,#f1,#05
	db #fb,#03,#03,#fb,#ff,#01,#02,#03
	db #fa,#02,#04,#06,#f4,#01,#02,#03
	db #04,#05,#f1,#05,#fb,#03,#03,#fb
	db #ff,#01,#02,#03,#fa,#02,#04,#06
	db #f4,#01,#02,#03,#04,#05,#f1,#05
	db #fb,#03,#03,#fb,#ff,#01,#02,#03
	db #fa,#02,#04,#06,#f4,#01,#02,#03
	db #04,#05,#f1,#05,#fb,#03,#03,#fb
	db #ff,#13,#64,#00,#00,#64,#02,#0c
	db #0c,#0c,#0c,#0c,#0c,#0c,#0c,#0c
	db #0c,#0c,#0b,#0b,#0b,#0b,#0b,#0b
	db #0a,#0a,#0a,#0a,#0a,#0a,#0a,#0a
	db #0a,#0a,#0a,#0a,#0a,#0a,#09,#09
	db #09,#09,#09,#09,#09,#09,#09,#09
	db #08,#08,#08,#08,#08,#08,#08,#08
	db #08,#08,#08,#08,#07,#07,#07,#07
	db #07,#07,#07,#06,#06,#06,#06,#06
	db #06,#06,#06,#06,#06,#05,#05,#05
	db #05,#05,#05,#05,#05,#04,#04,#04
	db #04,#04,#04,#04,#04,#04,#03,#03
	db #03,#03,#03,#03,#03,#03,#03,#03
	db #02,#02,#01,#00,#0a,#14,#1e,#28
	db #ba,#0a,#14,#1e,#28,#ba,#0a,#14
	db #1e,#28,#ba,#0a,#14,#1e,#28,#ba
	db #0a,#14,#1e,#28,#ba,#0a,#14,#1e
	db #28,#ba,#0a,#14,#1e,#28,#ba,#0a
	db #14,#1e,#28,#ba,#0a,#14,#1e,#28
	db #ba,#0a,#14,#1e,#28,#ba,#0a,#14
	db #1e,#28,#ba,#0a,#14,#1e,#28,#ba
	db #0a,#14,#1e,#28,#ba,#0a,#14,#1e
	db #28,#ba,#0a,#14,#1e,#28,#ba,#0a
	db #14,#1e,#28,#ba,#0a,#14,#1e,#28
	db #ba,#0a,#14,#1e,#28,#ba,#0a,#14
	db #1e,#28,#ba,#0a,#14,#1e,#28,#ba
	db #13,#14,#e8,#03,#01,#fe,#0d,#0b
	db #0b,#0b,#0a,#0a,#0a,#0a,#09,#09
	db #08,#08,#08,#07,#07,#06,#05,#04
	db #03,#01,#00,#f6,#f1,#ec,#e2,#f6
	db #f1,#ec,#e2,#f6,#f1,#ec,#e2,#f6
	db #f1,#ec,#e2,#f6,#f1,#ec,#e2,#0d
	db #14,#1f,#00,#01,#0b,#0b,#0b,#0a
	db #0a,#0a,#0a,#09,#09,#08,#08,#08
	db #07,#07,#06,#05,#04,#03,#01,#00
	db #ff,#ff,#ff,#ff,#ff,#ff,#ff,#ff
	db #ff,#ff,#ff,#ff,#ff,#ff,#ff,#ff
	db #ff,#ff,#ff,#ff,#0d,#0f,#02,#00
	db #01,#fe,#0f,#01,#01,#02,#02,#03
	db #03,#04,#05,#06,#06,#07,#08,#09
	db #0a,#0b,#00,#01,#01,#01,#01,#01
	db #01,#01,#01,#01,#01,#01,#01,#01
	db #01,#01,#13,#0f,#08,#07,#01,#01
	db #01,#02,#02,#03,#03,#04,#05,#06
	db #06,#07,#08,#09,#0a,#0b,#00,#9c
	db #9c,#9c,#9c,#9c,#9c,#9c,#9c,#9c
	db #9c,#9c,#9c,#9c,#9c,#9c

	org #6bfa
.l6bfa
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #29,#0e,#5d,#0d,#9c,#0c,#e7,#0b
	db #3c,#0b,#9b,#0a,#02,#0a,#73,#09
	db #eb,#08,#6b,#08,#f2,#07,#80,#07
	db #14,#07,#ae,#06,#4e,#06,#f4,#05
	db #9e,#05,#4d,#05,#01,#05,#b9,#04
	db #75,#04,#35,#04,#f9,#03,#c0,#03
	db #8a,#03,#57,#03,#27,#03,#fa,#02
	db #cf,#02,#a7,#02,#81,#02,#5d,#02
	db #3b,#02,#1b,#02,#fc,#01,#e0,#01
	db #c5,#01,#ac,#01,#94,#01,#7d,#01
	db #68,#01,#53,#01,#40,#01,#2e,#01
	db #1d,#01,#0d,#01,#fe,#00,#f0,#00
	db #e2,#00,#d6,#00,#ca,#00,#be,#00
	db #b4,#00,#aa,#00,#a0,#00,#97,#00
	db #8f,#00,#87,#00,#7f,#00,#78,#00
	db #71,#00,#6b,#00,#65,#00,#5f,#00
	db #5a,#00,#55,#00,#50,#00,#4c,#00
	db #47,#00,#43,#00,#40,#00,#3c,#00
	db #39,#00,#35,#00,#32,#00,#30,#00
	db #2d,#00,#2a,#00,#28,#00,#26,#00
	db #24,#00,#22,#00,#20,#00,#1e,#00
	db #1c,#00,#1b,#00,#19,#00,#18,#00
	db #16,#00,#15,#00,#14,#00,#13,#00
	db #12,#00,#11,#00,#10,#00,#0f,#00
	db #86,#85,#28,#0c,#81,#01,#0c,#85
	db #28,#0c,#84,#01,#30,#84,#01,#0c
	db #85,#28,#0c,#81,#01,#0c,#85,#28
	db #18,#84,#01,#18,#81,#01,#0c,#84
	db #01,#0c,#85,#28,#0c,#81,#01,#0c
	db #85,#28,#0c,#84,#01,#18,#81,#01
	db #0c,#84,#01,#24,#85,#28,#0c,#81
	db #01,#0c,#85,#28,#0c,#84,#01,#18
	db #84,#01,#18,#85,#28,#0c,#81,#01
	db #0c,#85,#28,#0c,#84,#01,#18,#81
	db #01,#0c,#84,#01,#24,#85,#28,#0c
	db #81,#01,#0c,#85,#28,#0c,#84,#01
	db #18,#81,#01,#0c,#84,#01,#0c,#85
	db #28,#0c,#81,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#18,#81,#01
	db #0c,#84,#01,#18,#85,#28,#0c,#81
	db #01,#0c,#85,#28,#0c,#84,#01,#18
	db #81,#01,#0c,#84,#01,#0c,#85,#28
	db #0c,#94,#81,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#18,#81,#01
	db #0c,#84,#01,#0c,#85,#28,#0c,#81
	db #01,#18,#85,#28,#0c,#84,#01,#18
	db #84,#01,#0c,#81,#01,#0c,#85,#28
	db #0c,#81,#01,#18,#85,#28,#0c,#84
	db #01,#18,#81,#01,#0c,#84,#01,#0c
	db #85,#28,#0c,#81,#01,#0c,#85,#28
	db #0c,#84,#01,#18,#84,#01,#0c,#81
	db #01,#0c,#84,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#0c,#81,#01
	db #0c,#85,#28,#0c,#81,#01,#0c,#84
	db #01,#0c,#81,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#0c,#81,#01
	db #0c,#85,#28,#0c,#81,#01,#0c,#84
	db #01,#0c,#81,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#0c,#81,#01
	db #0c,#85,#28,#0c,#81,#01,#0c,#84
	db #01,#0c,#81,#01,#0c,#85,#28,#0c
	db #81,#01,#0c,#84,#01,#0c,#81,#01
	db #0c,#85,#28,#0c,#81,#01,#0c,#84
		db #01,#0c,#81,#01,#0c,#ff
.l6e10
	db #95,#01
	db #e8,#d2,#6c,#95,#01,#e8,#64,#6d
	db #ff,#80,#42,#18,#4e,#0c,#42,#18
	db #42,#0c,#4e,#24,#42,#0c,#4e,#18
	db #42,#18,#4e,#18,#40,#18,#4c,#0c
	db #40,#18,#40,#0c,#4c,#24,#40,#0c
	db #4c,#18,#40,#18,#4c,#18,#42,#18
	db #4e,#0c,#42,#18,#42,#0c,#4e,#24
	db #42,#0c,#4e,#18,#42,#18,#4e,#18
	db #40,#18,#4c,#0c,#40,#18,#40,#0c
	db #4c,#24,#40,#0c,#4c,#18,#40,#18
	db #4c,#18,#42,#24,#42,#0c,#4e,#18
	db #42,#18,#94,#40,#24,#4c,#24,#40
	db #18,#3e,#24,#3e,#0c,#4a,#18,#3e
	db #18,#3d,#24,#49,#18,#49,#0c,#3d
	db #0c,#49,#0c,#42,#0c,#4e,#0c,#42
	db #0c,#4e,#0c,#42,#0c,#4e,#0c,#42
	db #0c,#4e,#0c,#3e,#0c,#4a,#0c,#3e
	db #0c,#4a,#0c,#3e,#0c,#4a,#0c,#3e
	db #0c,#4a,#0c,#40,#0c,#4c,#0c,#40
	db #0c,#4c,#0c,#40,#0c,#4c,#0c,#40
	db #0c,#4c,#0c,#3d,#0c,#49,#0c,#3d
	db #0c,#49,#0c,#3d,#0c,#49,#0c,#3d
	db #0c,#49,#0c,#ff,#94
.l6ec7
	db #95,#01,#dc
	db #1b,#6e,#95,#01,#dc,#6d,#6e,#ff
	db #80,#42,#0c,#44,#0c,#45,#0c,#42
	db #18,#45,#0c,#44,#0c,#45,#18,#42
	db #0c,#47,#0c,#45,#0c,#42,#0c,#3d
	db #0c,#40,#0c,#42,#0c,#44,#0c,#45
	db #0c,#47,#0c,#40,#0c,#42,#0c,#44
	db #0c,#42,#0c,#40,#0c,#44,#0c,#45
	db #0c,#47,#0c,#47,#18,#40,#18,#40
	db #0c,#42,#0c,#45,#0c,#47,#0c,#48
	db #0c,#47,#0c,#45,#0c,#40,#0c,#42
	db #18,#45,#0c,#47,#0c,#45,#18,#44
	db #0c,#42,#0c,#45,#0c,#44,#0c,#40
	db #0c,#3d,#0c,#3e,#0c,#40,#0c,#44
	db #18,#94,#44,#18,#40,#0c,#3d,#0c
	db #3e,#0c,#40,#0c,#44,#18,#45,#0c
	db #42,#24,#42,#0c,#45,#18,#42,#18
	db #40,#0c,#42,#0c,#44,#0c,#45,#0c
	db #47,#18,#44,#18,#3e,#0c,#42,#0c
	db #45,#0c,#47,#0c,#48,#0c,#47,#0c
	db #45,#18,#47,#0c,#45,#0c,#44,#0c
	db #40,#0c,#3d,#18,#44,#18,#42,#0c
	db #42,#0c,#45,#0c,#45,#0c,#42,#18
	db #45,#18,#42,#0c,#42,#0c,#45,#0c
	db #45,#0c,#42,#18,#45,#18,#40,#0c
	db #40,#0c,#44,#0c,#44,#0c,#40,#18
	db #44,#18,#47,#0c,#45,#0c,#44,#0c
	db #45,#0c,#44,#0c
		db #40,#0c,#3d,#0c
		db #40,#0c,#ff
.l6fa5
	db #95,#01,#00,#d2,#6e
	db #95,#01,#00,#34,#6f,#ff,#86,#0c
	db #06,#81,#01,#06,#01,#06,#01,#06
	db #94,#86,#0c,#06,#81,#01,#06,#01
	db #06,#01,#06,#84,#01,#18,#86,#0c
	db #06,#81,#01,#06,#01,#06,#01,#06
	db #84,#01,#18,#94
.l6fd6
	db #95,#10,#00,#b0
	db #6f,#95,#0c,#00,#bb,#6f,#ff,#80
	db #3c,#0c,#48,#0c,#94
.l6fe7
	db #95,#04,#d9
	db #e1,#6f,#95,#04,#dc,#e1,#6f,#95
	db #04,#de,#e1,#6f,#95,#02,#e0,#e1
	db #6f,#95,#01,#e1,#e1,#6f,#95,#01
	db #e3,#e1,#6f,#95,#10,#e5,#e1,#6f
	db #ff,#4f,#0c,#4d,#0c,#4a,#0c,#51
	db #0c,#4f,#0c,#4d,#0c,#4a,#0c,#51
	db #0c,#94
.l701c
	db #80,#2d,#60,#30,#60,#32
	db #60,#34,#30,#35,#18,#37,#18,#39
	db #c0,#39,#c0,#ff,#80,#18,#02,#1c
	db #02,#1f,#02,#1c,#02,#1f,#02,#24
	db #02,#1f,#02,#24,#02,#28,#02,#24
	db #02,#28,#02,#2b,#02,#28,#02,#2b
	db #02,#30,#02,#2b,#02,#30,#02,#34
	db #02,#30,#02,#34,#02,#37,#02,#34
	db #02,#37,#02,#3c,#02,#37,#02,#3c
	db #02,#40,#02,#3c,#02,#40,#02,#43
	db #40,#94
.l706c
	db #00,#08
.l706e
	db #00,#04
.l7070
	db #95,#01
	db #00,#2e,#70,#fe
.l7076
	defw l6fa5,l6ec7
	defw l6e10,l701c,l6fe7,l6fd6
	defw l706c,l706e
.l7086
	defw l7070,#0000
.l708a
	defw #6820,#684d,#687a,#68a7
	defw #68d4,#6901,#692e,#695b
	defw #6988,#69b5,#6a85,#6b54
	defw #6b83,#6bb0
.l70a6
	defw #6bd6,#0000
.l70aa
	defw #679b,#64dc,#6751,#0000
	defw #6469,#65ff,#670d,#677d
	defw #64e9,#0000,#0000,#0000
	defw #0000
.l70c4
	defw #6785,#0000
.l70c8
	jp l74d5

.l70d0 equ $ + 5
.l70cf equ $ + 4
.l70ce equ $ + 3
.l70cd equ $ + 2
.l70cc equ $ + 1
.l70cb
db #01,#01,#02,#00,#00,#00,#00
.l70d8 equ $ + 6
.l70d2
db #74,#00,#00,#00,#00,#00,#ff,#00
.l70da
db #00,#00,#00,#08,#02,#00,#06,#0c
.l70e8 equ $ + 6
.l70e2
db #a1,#00,#02,#05,#8c,#0b,#ff,#38
.l70ea
db #09,#09,#08,#82,#00,#14,#01,#00
.l70f2
db #13,#01,#00,#23,#c0,#80,#29,#f0
db #80,#21,#fc,#80,#28,#fe,#80,#00

.l7102
	db #00,#a1,#00,#9b,#67,#01,#01,#13
	db #39,#ff,#0c,#01,#a5,#6f,#05,#00
	db #00,#01,#d2,#6e,#03,#0c,#00,#00
	db #01,#02,#05,#9b,#67,#01,#01,#13
	db #39,#ff,#18,#01,#c7,#6e,#05,#00
	db #80,#29,#1b,#6e,#03,#fc,#80,#dc
	db #02,#8c,#0b,#ff,#65,#01,#01,#13
	db #39,#ff,#0c,#01,#10,#6e,#05,#00
	db #00,#01,#d2,#6c,#04,#10,#80,#e8

.l714a
	db #00,#40,#05,#38,#40,#ff,#38,#00
	db #00,#38,#20,#08,#7c,#20,#0a,#7c
	db #20,#08,#fe,#20,#04,#ee,#40,#01
	db #01,#40,#02,#00,#80,#ff,#83,#01
	db #01,#7c,#00,#00,#7c,#00,#01,#83
	db #00,#02,#20,#80,#04,#84,#40,#02
	db #02,#40,#09,#1c,#20,#00,#3c,#02
	db #02,#7c,#20,#08,#fc,#20,#09,#fc
	db #20,#04,#1d,#40,#04,#04,#40

	push de
.l7192
	push de
	push bc
	push hl
	push ix
	push iy
	call l71a4
	pop iy
	pop ix
	pop hl
	pop bc
	pop de
	ret
.l71a4
	ld (l70cc),a
	ld a,c
	ld (l70cd),a
	ld a,(l70cc)
	ld iy,l70e2
	cp #ff
	jp z,l7371
	dec a
	jp m,l72ce
	call l72ce
	ld a,#01
	ld (l70cb),a
	call l7268
	ld a,(l70cc)
	dec a
	ld e,a
	add a
	add e
	add a
	ld e,a
	ld d,#00
	ld hl,l7076
	add hl,de
	ex de,hl
	ld hl,l7086
	sbc hl,de
	jp c,l72ce
	ex de,hl
	ld ix,l7102
	ld b,#03
.l71e5
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#0c),e
	ld (ix+#0d),d
	ld (ix+#0a),#01
	ld de,#0018
	add ix,de
	djnz l71e5
	ret

.l71fb
	push de
	push bc
	push hl
	push ix
	push iy
	call l720d
	pop iy
	pop ix
	pop hl
	pop bc
	pop de
	ret
.l720d
	ld iy,l70d2
	ld ix,l714a
	ld (l70ce),a
	dec a
	jp m,l72fd
	add a
	ld e,a
	ld d,#00
	ld hl,l708a
	add hl,de
	ex de,hl
	ld hl,l70a6
	sbc hl,de
	ret c
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	ld b,#03
	ld ix,l714a
	ld a,(l70ce)
	ld c,a
	ld de,#0018
.l723d
	ld a,(ix+#09)
	cp c
	jr nz,l724d
	ld a,(ix+#05)
	and a
	jr z,l724d
	inc a
	jp nz,l731b
.l724d
	add ix,de
	djnz l723d
	ld ix,l714a
	ld de,#0004
	add hl,de
	ld c,(hl)
	and a
	sbc hl,de
	call l72aa
	ld a,(ix+#05)
	cp c
	ret nc
	jp l731b
.l7268
	push ix
	ld ix,l714a
	ld hl,l70da
	ld a,(l70cd)
	ld c,a
	xor a
	ld de,#0018
.l7279
	dec c
	jp m,l7284
	ld (ix+#05),#ff
	ld (hl),#00
	inc hl
.l7284
	add ix,de
	inc a
	cp #03
	jr c,l7279
	pop ix
	ret

.l728e
	push ix
	ld ix,l714a
	ld b,#03
	ld de,#0018
.l7299
	ld a,(ix+#05)
	inc a
	jr nz,l72a3
	ld (ix+#05),#00
.l72a3
	add ix,de
	djnz l7299
	pop ix
	ret

.l72aa
	push iy
	push ix
	pop iy
	ld de,#0018
	ld a,(iy+#05)
	cp (ix+#1d)
	jr c,l72bd
	add iy,de
.l72bd
	ld a,(iy+#05)
	cp (ix+#35)
	jr c,l72c7
	add iy,de
.l72c7
	push iy
	pop ix
	pop iy
	ret

.l72ce
	ld ix,l7102
	ld b,#03
	ld hl,l70ea
	ld de,#0018
	ld a,#00
.l72dc
	ld (hl),a
	inc hl
	ld (ix+#05),a
	ld (ix+#0e),a
	ld (ix+#0f),a
	ld (ix+#13),a
	ld (ix+#14),a
	ld (ix+#06),a
	add ix,de
	djnz l72dc
	ld (l70cf),a
	ld (l70cb),a
	jp l728e
.l72fd
	ld b,#03
	ld ix,l714a
	ld hl,l70da
	ld de,#0018
.l7309
	ld (hl),#00
	inc hl
	ld a,(ix+#05)
	inc a
	jr z,l7316
	ld (ix+#05),#00
.l7316
	add ix,de
	djnz l7309
	ret

.l731b
	ld (ix+#06),#00
	ld (ix+#03),l
	ld (ix+#04),h
	ld a,(hl)
	inc hl
	ld (ix+#07),a
	ld a,(hl)
	inc hl
	ld (ix+#08),a
	ld a,(hl)
	inc hl
	ld (ix+#01),a
	ld a,(hl)
	inc hl
	ld (ix+#02),a
	ld a,(hl)
	ld (ix+#05),a
	ld a,(l70ce)
	ld (ix+#09),a
	ld a,(ix+#07)
	ld c,#00
	rra
	rra
	rra
	rra
	rl c
	sla c
	sla c
	rra
	rl c
	ld b,#09
	ld e,(ix+#00)
.l735a
	dec e
	jp m,l7364
	sla b
	sla c
	jr l735a
.l7364
	ld a,c
	xor b
	ld b,a
	ld a,c
	cpl
	and (iy+#07)
	or b
	ld (iy+#07),a
	ret
.l7371
	ld a,#10
	ld (l70cf),a
	ld a,c
	ld (l70d2),a
	ld a,#00
	ld (l70d0),a
	ret
.l7380
	ld a,(l70cf)
	and a
	ret z
	ld a,(l70d0)
	dec a
	ld (l70d0),a
	jp p,l73a5
	ld a,(l70d2)
	ld (l70d0),a
	ld a,(l70cf)
	dec a
	ld (l70cf),a
	jr nz,l73a5
	ld a,#00
	ld c,#00
	jp l7192
.l73a5
	ld hl,l70ea
	ld b,#03
.l73aa
	ld d,(hl)
	ld a,(l70cf)
	ld e,a
	xor a
	dec e
	jp m,l73b9
.l73b4
	add d
	dec e
	jp p,l73b4
.l73b9
	srl a
	srl a
	srl a
	srl a
	ld (hl),a
	inc hl
	djnz l73aa
	ret

.l73c6
	ld b,#03
.l73c8
	ld a,(ix+#05)
	and a
	jp z,l746d
	inc a
	jp z,l746d
	ld l,(ix+#03)
	ld h,(ix+#04)
	ld a,(ix+#06)
	add #05
	ld e,a
	ld d,#00
	add hl,de
	bit 0,(ix+#07)
	jr z,l7426
	ld a,(hl)
	cp #fe
	jr nz,l7400
	inc (ix+#06)
	inc (ix+#06)
	inc hl
	ld a,(hl)
	push ix
	push bc
	call l71fb
	pop bc
	pop ix
	jr l73c8
.l7400
	cp #ff
	jr nz,l740a
	ld (ix+#06),#00
	jr l73c8
.l740a
	ld c,a
	ld a,(ix+#00)
	add #08
	ld (l7415),a
.l7415 equ $ + 2
	ld (iy+#0a),c
	ld a,c
	and a
	jr nz,l7420
	ld (ix+#05),#00
	jr l746d
.l7420
	ld e,(ix+#08)
	ld d,#00
	add hl,de
.l7426
	bit 1,(ix+#07)
	jr z,l7460
	ld e,(hl)
	ld d,#00
	bit 7,e
	jr z,l7434
	dec d
.l7434
	push hl
	ld l,(ix+#01)
	ld h,(ix+#02)
	add hl,de
	ld (ix+#01),l
	ld (ix+#02),h
	pop hl
	ld a,(ix+#00)
	add a
	ld (l7453),a
	inc a
	ld (l7459),a
	ld a,(ix+#01)
.l7453 equ $ + 2
	ld (iy+#04),a
	ld a,(ix+#02)
.l7459 equ $ + 2
	ld (iy+#05),a
	ld e,(ix+#08)
	ld d,#00
	add hl,de
.l7460
	bit 2,(ix+#07)
	jr z,l746a
	ld a,(hl)
	ld (iy+#06),a
.l746a
	inc (ix+#06)
.l746d
	ld de,#0018
	add ix,de
	dec b
	jp nz,l73c8
	ret
;
.play_music
.l7477
;
	push af
	push bc
	push de
	push hl
	push ix
	push iy
.l747f
	call l7682
	ld a,#ff
	ld (l70d8),a
	ld (l70e8),a
	ld iy,l70e2
	ld ix,l7102
	call l73c6
	ld iy,l70d2
	ld ix,l714a
	call l73c6
	call l7380
	call l74f5
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret

	ld a,e
	cp #08
	jr c,l74ba
	cp #0b
	jr nc,l74ba
	srl d
.l74ba
	ld hl,l70f2
	ld c,e
	ld b,#00
	add hl,bc
	ld a,(hl)
	cp d
	ret z
	ld (hl),d
	ld bc,#fffd
	out (c),e
	ld bc,#bffd
	out (c),d
	ld a,d
	and #07
	out (#fe),a
	ret

.l74d5
	ld a,e
	ld c,d
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret

.l74f5
	ld iy,l70d2
	ld ix,l7102
	ld e,#00
	call l757e
	ld e,#01
	call l757e
	ld e,#08
	call l757e
	ld bc,#0018
	add ix,bc
	ld e,#02
	call l757e
	ld e,#03
	call l757e
	ld e,#09
	call l757e
	ld bc,#0018
	add ix,bc
	ld e,#04
	call l757e
	ld e,#05
	call l757e
	ld e,#0a
	call l757e
	ld e,#06
	ld a,(iy+#06)
	cp #ff
	jr nz,l7544
	ld a,(iy+#16)
	cp #ff
	jr z,l7548
.l7544
	ld d,a
	call l70c8
.l7548
	ld ix,l7102
	ld b,#03
	ld c,#09
	ld h,#00
	ld de,#0018
.l7555
	ld l,(iy+#17)
	ld a,(ix+#4d)
	and a
	jr z,l7566
	inc a
	jr z,l7566
	ld l,(iy+#07)
	jr l756e
.l7566
	ld a,(ix+#05)
	and a
	jr nz,l756e
	ld l,#ff
.l756e
	ld a,l
	and c
	sla c
	or h
	ld h,a
	add ix,de
	djnz l7555
	ld d,h
	ld e,#07
	jp l70c8
.l757e
	ld a,e
	ld (l7595),a
	add #10
	ld (l7589),a
.l7589 equ $ + 2
	ld d,(iy+#1a)
	ld a,(ix+#4d)
	and a
	jr z,l7596
	inc a
	jr z,l7596
.l7595 equ $ + 2
	ld d,(iy+#0a)
.l7596
	jp l70c8
.l7599
	push ix
	pop iy
	ld a,(ix+#13)
	and a
	jr z,l75a8
	ld de,#0006
	add iy,de
.l75a8
	ld l,(iy+#0c)
	ld h,(iy+#0d)
	ld e,(iy+#0e)
	ld d,#00
	add hl,de
	bit 7,(hl)
	jr nz,l75bf
	inc (iy+#0e)
	inc (iy+#0e)
	ret
.l75bf
	ld a,(hl)
	cp #94
	jp z,l760f
	cp #95
	jp z,l7620
	cp #9d
	jp z,l7643
	cp #9e
	jp z,l7657
	cp #ff
	jp z,l766b
	cp #fe
	jp z,l767a
	res 7,a
	add a
	ld e,a
	ld d,#00
	ld hl,l70aa
	add hl,de
	ex de,hl
	ld hl,l70c4
	sbc hl,de
	jr nc,l75f3
	ld de,l70aa
.l75f3
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	push bc
	push iy
	ld iy,l70e2
	call l731b
	ld (ix+#09),#ff
	pop iy
	pop bc
	inc (iy+#0e)
	jp l7599
.l760f
	ld (iy+#0e),#00
	dec (ix+#0b)
	jp nz,l7599
	ld (ix+#13),#00
	jp l7599
.l7620
	inc hl
	ld a,(hl)
	ld (ix+#0b),a
	inc hl
	ld a,(hl)
	ld (ix+#17),a
	inc hl
	ld a,(hl)
	ld (ix+#12),a
	inc hl
	ld a,(hl)
	ld (ix+#13),a
	ld a,(ix+#0e)
	add #05
	ld (ix+#0e),a
	ld (ix+#14),#00
	jp l7599
.l7643
	dec (iy+#0f)
	jr nz,l764e
	inc (iy+#0e)
	jp l7599
.l764e
	ld a,(iy+#10)
	ld (iy+#0e),a
	jp l7599
.l7657
	inc (iy+#0e)
	inc (iy+#0e)
	ld a,(iy+#0e)
	ld (iy+#10),a
	inc hl
	ld a,(hl)
	ld (iy+#0f),a
	jp l7599
.l766b
	pop bc
	pop bc
	ld a,(l70cd)
	ld c,a
	ld a,(l70cc)
	call l7192
	jp l747f
.l767a
	pop bc
	pop bc
	call l72ce
	jp l747f
.l7682
	ld a,(l70cb)
	and a
	ret z
	ld ix,l7102
	ld b,#03
.l768d
	dec (ix+#0a)
	jr nz,l76bf
	call l7599
	ld a,(hl)
	and a
	jr z,l769c
	add (iy+#11)
.l769c
	add a
	ld e,a
	ld d,#00
	ld iy,l6bfa
	add iy,de
	ld e,(iy+#00)
	ld d,(iy+#01)
	ld (ix+#02),d
	ld (ix+#01),e
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	ld (ix+#06),#00
	ld (ix+#05),#01
.l76bf
	ld de,#0018
	add ix,de
	djnz l768d
	ret

;
.init_music     ; added by Megachur
;
	push af
	xor a
	call l71fb
	pop af
	push bc
	ld c,#02
	call l7192
	pop bc
	ret

;org #1600
;stop_music
;	xor a
;	call l166a
;	xor a
;	jp l1662
;	ret
;
;init_music
;	ld a,1
;	jp l1662
;

;
.game_name
	db "E-Motion",0
.game_year
	db "1990",0
.game_publisher
	db "U.S.Gold",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
